Imports System.Data.SqlClient
Imports System.Xml
Public Class dCuenta
    Public Function Existe(ByVal CodigoCuenta As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCuenta <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCuenta", CodigoCuenta))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblCuentaBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)

    End Function
    Public Function Insertar(ByVal NumeroCuenta As String, ByVal tipo As String, ByVal CodigoBanco As String, ByVal Chequera As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If NumeroCuenta <> "" Then
            Parametros.Add(New SqlParameter("@pENumeroCuenta", NumeroCuenta))
        End If
        If CodigoBanco <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoBanco", CodigoBanco))
        End If
        If tipo <> "" Then
            Parametros.Add(New SqlParameter("@pETipoCuenta", tipo))
        End If
        If Chequera <> "" Then
            Parametros.Add(New SqlParameter("@pEChequera", Chequera))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblCuentaALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoCuenta As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCuenta <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCuenta", CodigoCuenta))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblCuentaELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoCuenta As Integer, ByVal NumeroCuenta As String, ByVal tipo As String, ByVal CodigoBanco As String, ByVal Chequera As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCuenta <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCuenta", CodigoCuenta))
        End If
        If NumeroCuenta <> "" Then
            Parametros.Add(New SqlParameter("@pENumeroCuenta", NumeroCuenta))
        End If
        If tipo <> "" Then
            Parametros.Add(New SqlParameter("@pETipoCuenta", tipo))
        End If
        If CodigoBanco <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoBanco", CodigoBanco))
        End If
        If Chequera <> "" Then
            Parametros.Add(New SqlParameter("@pEChequera", Chequera))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblCuentaMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoCuenta As Integer, ByVal NumeroCuenta As String, ByVal tipo As String, ByVal CodigoBanco As Integer, ByVal Chequera As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCuenta <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCuenta", CodigoCuenta))
        End If
        If NumeroCuenta <> "" Then
            Parametros.Add(New SqlParameter("@pENumeroCuenta", NumeroCuenta))
        End If
        If tipo <> "" Then
            Parametros.Add(New SqlParameter("pETipoCuenta", tipo))
        End If
        If CodigoBanco <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoBanco", CodigoBanco))
        End If
        If Chequera <> "" Then
            Parametros.Add(New SqlParameter("@pEChequera", Chequera))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblCuentaBUSCARFILTRADO", Parametros)
    End Function
    Public Function DarBanco(ByVal CodigoCuenta As Integer, ByVal CodigoBanco As Integer) As Integer
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCuenta <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCuenta", CodigoCuenta))
        End If
        If CodigoBanco <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoBanco", CodigoBanco))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblCuentaBUSCARFILTRADO", Parametros).Tables(0).Rows(0)("CodigoBanco").ToString()
    End Function
End Class
